home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / TerminalTools.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  2.2 KB  |  125 lines  |  [TEXT/MPS ]
  1. {
  2.     TerminalTools.p
  3.     Pascal Interface to the Terminal Manager Tools.
  4.     
  5.     Copyright © Apple Computer, Inc.    1988-90
  6.     All rights reserved
  7. }
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT TerminalTools;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingTerminalTools}
  19. {$SETC UsingTerminalTools := 1}
  20.  
  21. {$I+}
  22. {$SETC TerminalToolsIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24.  
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED UsingTerminals}
  30. {$I $$Shell(PInterfaces)Terminals.p}
  31. {$ENDC}
  32.  
  33. {$SETC UsingIncludes := TerminalToolsIncludes}
  34.  
  35. CONST
  36.     tdefType            =    'tdef';
  37.     tvalType            =    'tval';
  38.     tsetType            =    'tset';
  39.     tlocType            =    'tloc';
  40.     tscrType            =    'tscr';
  41.     tbndType            =    'tbnd';    
  42.     tverType            =    'vers';
  43.     
  44. { messages }
  45.     tmInitMsg             =     0;
  46.     tmDisposeMsg         =     1;
  47.     tmSuspendMsg        =     2;
  48.     tmResumeMsg            =     3;
  49.     tmMenuMsg            =    4;
  50.     tmEventMsg            =    5;
  51.     tmActivateMsg        =     6;
  52.     tmDeactivateMsg        =     7;
  53.     tmGetErrorStringMsg    =    8;
  54.     
  55.     tmIdleMsg            =    50;
  56.     tmResetMsg            =    51;
  57.  
  58.     tmKeyMsg            =     100;
  59.     tmStreamMsg            =     101;
  60.     tmResizeMsg            =     102;
  61.     tmUpdateMsg            =    103;
  62.     tmClickMsg            =    104;
  63.     tmGetSelectionMsg    =    105;
  64.     tmSetSelectionMsg    =    106;
  65.     tmScrollMsg            =    107;
  66.     tmClearMsg            =    108;
  67.     tmGetLineMsg        =    109;
  68.     tmPaintMsg            =    110;
  69.     tmCursorMsg            =    111;
  70.     tmGetEnvironsMsg    =    112;
  71.     tmDoTermKeyMsg        =    113;
  72.     tmCountTermKeysMsg    =    114;
  73.     tmGetIndTermKeyMsg    =    115;
  74.     
  75. {    messages for validate DefProc                }
  76.  
  77.     tmValidateMsg        =    0;
  78.     tmDefaultMsg        =    1;
  79.     
  80. {    messages for Setup DefProc                }
  81.  
  82.     tmSpreflightMsg        =    0;
  83.     tmSsetupMsg            =    1;
  84.     tmSitemMsg            =    2;
  85.     tmSfilterMsg        =    3;
  86.     tmScleanupMsg        =    4;
  87.     
  88. {    messages for scripting defProc             }
  89.     tmMgetMsg            =    0;
  90.     tmMsetMsg            =    1;
  91.     
  92. {    messages for localization defProc        }
  93.  
  94.     tmL2English            =    0;
  95.     tmL2Intl            =    1;
  96.     
  97.     
  98. TYPE
  99.  
  100.     TMSearchBlockPtr    =    ^TMSearchBlock;
  101.     TMSearchBlock        =    RECORD
  102.         theString     :    StringHandle;
  103.         where        :    Rect;
  104.         searchType    :    TMSearchTypes;
  105.         callBack    :    ProcPtr;
  106.         refnum        :    INTEGER;
  107.         next        :    TMSearchBlockPtr;
  108.     END;
  109.     
  110.     TMSetupPtr        =    ^TMSetupStruct;
  111.     TMSetupStruct    =    RECORD
  112.         theDialog    :    DialogPtr;
  113.         count        :    INTEGER;
  114.         theConfig    :    Ptr;
  115.         procID        :    INTEGER;        { procID of the tool    }
  116.     END;
  117.     
  118. {$ENDC} {UsingTerminalTools}
  119.  
  120. {$IFC NOT UsingIncludes}
  121.     END.
  122. {$ENDC}
  123.  
  124.  
  125.